home *** CD-ROM | disk | FTP | other *** search
/ Apple II Magazines (DO) / Softdisk Magazette Volume 1, No. 05 (1982-01)(Softdisk)(Side A).zip / Softdisk Magazette Volume 1, No. 05 (1982-01)(Softdisk)(Side A).do / LISA.bas < prev    next >
BASIC Source File  |  1996-12-24  |  1KB  |  23 lines
  1. 1  REM  LISA
  2. 2  TEXT : HOME : VTAB 10: HTAB 5
  3. 3  PRINT "LISA WILL BE DOWN IN A MINUTE."
  4. 4  VTAB 12: HTAB 5
  5. 5  PRINT "I THINK SHE'S COMBING HER HAIR."
  6. 200  POKE 770,173: POKE 771,48: POKE 772,192: POKE 773,136: POKE 774,208: POKE 775,4: POKE 776,198: POKE 777,7: POKE 778,240
  7. 210  POKE 779,8: POKE 780,202: POKE 781,208: POKE 782,246: POKE 783,166: POKE 784,6: POKE 785,76: POKE 786,2: POKE 787,3: POKE 788,96
  8. 250 A = 770:T = 6:L = 7: POKE T,90: POKE L,100: CALL A
  9. 260  DIM T(200),L(200)
  10. 270  FOR I = 0 TO 45: READ T(I),L(I): NEXT 
  11. 280  PRINT  CHR$(4);"BLOAD PIC.6            ,A$2000"
  12. 290  PRINT  CHR$(4);"BLOAD PIC.7,A$4000"
  13. 300  FOR X = 0 TO 22
  14. 310  POKE  -16304,0: POKE  -16297,0: POKE  -16302,0
  15. 320 Q = X/2 - INT(X/2)
  16. 325  IF Q = 0  THEN  POKE  -16299,0
  17. 330  IF Q < >0  THEN  POKE  -16300,0
  18. 340  FOR Y = X *2 TO (X *2) +1: POKE T,T(Y): POKE L,L(Y): FOR J = 0 TO 30: NEXT J: CALL A: NEXT Y
  19. 350  NEXT X
  20. 360  FOR I = 1 TO 200: NEXT 
  21. 370  PRINT  CHR$(4);"RUN KICK.IT.OFF"
  22. 1000  DATA  90,80,90,150,90,45,100,80,135,80,120,80,120,80,1,50,90,80,90,150,90,45,100,80,135,80,120,80,120,80,1,45,120,25,120,25,120,25,120,25
  23. 1010  DATA  90,25,100,80,120,25,120,80,135,80,90,25,90,25,100,80,135,80,120,25,120,25,161,80,120,80,135,80,120,25,120,25,161,80,161,90,120,35,120,40,120,42,120,45,135,50,135,60,120,150,120,255